home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / LISP / AUTOCLAS / LOAD-AC.LIS next >
Lisp/Scheme  |  1990-07-17  |  4KB  |  109 lines
  1. ;;; -*- Mode: LISP; Syntax: Common-lisp; Package: USER; Base: 10 -*-
  2.  
  3. ;;; Load Autoclass Program and optional Results User Interface -- RELEASED
  4.  
  5. ;;;--------------------------------------------------------------------------;;;
  6. ;;;  AUTOCLASS 3.0  Released 5/11/90    contact:  Taylor@pluto.arc.nasa.gov  ;;;
  7. ;;;  by P. Cheeseman, J. Stutz, R. Hanson, W. Taylor                  ;;;
  8. ;;;  NASA Ames Research Center, MS 244-17, Moffett Field, CA 94035           ;;;
  9. ;;;                                                                          ;;;
  10. ;;;  Copyright (C) 1990 Research Institute for Advanced Computer Science.    ;;;
  11. ;;;  All rights reserved.  The RIACS Software Policy contains specific       ;;;
  12. ;;;  terms and conditions on the use of this software, and must be           ;;;
  13. ;;;  distributed with any copies.  THIS FILE MAY BE REDISTRIBUTED.  This     ;;;
  14. ;;;  copyright and notice must be preserved in all copies made of this file. ;;;
  15. ;;;--------------------------------------------------------------------------;;;
  16. ;;;    revised 5/18/90 for 3.0.1
  17.  
  18. (in-package 'user)
  19.  
  20. #+ (and (not :Lispm) (not :Coral))
  21. (load (namestring
  22.     (make-pathname :directory 
  23.                        (append (pathname-directory 
  24.                  (namestring *default-pathname-defaults*))
  25.                                '("prog"))
  26.                :name "sys-dcl" :type "lisp")))
  27.  
  28. #+ (and (not :Lispm) :Coral)
  29. (load (namestring
  30.     (make-pathname :directory 
  31.                        (namestring (make-pathname :name "prog" 
  32.                           :defaults *default-pathname-defaults*))
  33.                        :name "sys-dcl" :type "lisp")))
  34.  
  35.  
  36. #+ :Lispm
  37. (progn
  38.  
  39.   #+ :Symbolics
  40.   (progn
  41.     ;; NOTE: This load file loads two separate systems:
  42.     ;;    AUTOCLASS, & AUTOCLASS-UI.
  43.  
  44.     (send *terminal-io* :set-more-p nil)        ; turn off *MORE* processing
  45.     (send *terminal-io* :set-deexposed-typeout-action :permit)    ; allow Lisp Listener to typeout when de-exposed
  46.  
  47.     (defvar *user-interface-p* nil)
  48.  
  49.     (format *standard-output*
  50.         (concatenate 'string "~2% Options for seeing classification results:"
  51.              "~%    Report Generation Only: Attribute influence values &"
  52.              "~%        case vs. class cross-references."
  53.              "~%    Results User Interface: Bar graphs of attribute influence"
  54.              "~%        values, and specialized plots; in addition to report"
  55.              "~%        generation. ~2%"))
  56.  
  57.     (setf *user-interface-p* (y-or-n-p " Do you want the results user interface? "))
  58.  
  59.     (setf compiler:suppress-compiler-warnings t))
  60.  
  61.   #+ :Explorer
  62.   (setq compiler:qc-file-check-indentation nil)
  63.  
  64.   (when (null (find-package 'autoclass))
  65.  
  66.     #+ :Symbolics
  67.     (compile-system 'AUTOCLASS :no-warn t :query :no-confirm :increment-version nil)
  68.     #+ :Explorer
  69.     (make-system 'AUTOCLASS :nowarn :noconfirm :compile)
  70.     )
  71.  
  72.   #+ :Symbolics
  73.   (when (and *user-interface-p*
  74.          (or (null (find-package 'ac-ui))
  75.          (and (find-package 'ac-ui)
  76.               (not (find-symbol "*AUTOCLASS-DISPLAY-WINDOW*" (find-package 'ac-ui))))))
  77.  
  78.     (compile-system 'AUTOCLASS-UI :no-warn t :query :no-confirm :increment-version nil))
  79.  
  80.   #+ :Symbolics
  81.   (setf compiler:suppress-compiler-warnings nil)
  82.   )
  83.  
  84. #+ :Symbolics
  85. (when *user-interface-p*
  86.   (let ((superior (send *terminal-io* :superior)))
  87.     (dw:find-program-window (intern "AUTOCLASS-DISPLAY-WINDOW" (find-package 'ac-ui))
  88.                 :create-p :force :superior superior)))
  89.  
  90. (format *standard-output*
  91.     (concatenate 'string "~2%WELCOME TO AUTOCLASS --"
  92.              "~2%Make sure you are in the correct package by using (in-package '"
  93.              #- :Explorer "ac" #+ :Explorer "autoclass" ")"
  94.              "~2%First you need data (your 'db2' file),"
  95.              "~%then you need to describe it (your 'hd2' & 'model' files),"
  96.              "~%then you can validity check these files with AUTOCLASS-INPUT-CHECK."
  97.              "~2%Next, find classification results with AUTOCLASS-SEARCH."
  98.              "~2%Finally, generate reports using AUTOCLASS-REPORTS-FROM-RESULTS-FILE"
  99.              "~%or AUTOCLASS-REPORTS-FROM-CLSF."))
  100.  
  101. #+ :Symbolics
  102. (if *user-interface-p*
  103.     (format *standard-output*
  104.         (concatenate 'string
  105.              "~2%The Results User Interface is available for generating reports,"
  106.              "~%bar-charts, and specialized plots -- <SELECT>-@ ~2%")))
  107.  
  108.  
  109.